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May meeting agenda 
Saturday, May 19th 


2:00 PM ATR8000 - CP/M 
SIG meeting 


3:30 PM Business meeting 
Annual Elections 


Slate: President - 
Gary Nolan 


Vice President - 
Chris Stieber 


Secretary - 
Linda Scott 


Treasurer - 
Steve Tupper 


4:30 PM Demonstrations 


Beginning on page 6 of this issue is a very special programming article by 
our own Erik Hanson. Erik is a senior at Menomonee Falls East High School. 
This programming project was entered in a competition with high school 
Students through out the state. Erik earned a first place with this pro- 
ject. When you see Erik at the MILATARI meeting give him your congratula- 


tions. (Erik is also instructing the Assembly Language Class sponsored by 
MILATARI). 


The ATR800 - CP/M Special Interest Group will meet at Don Wilcox's home on 
Wednesday, May 30th. The meeting will begin at 7:30PM. This months topic 
ill be on the CP/M command structure. Don's home is located at 1419 W. 
Custer Ave., Milwaukee. Don asks that you bring your own folding chair. 
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۲۳۰۲۰۲ 5 1 ۲ ۷ ۲ < S RAM 
by Gary Nolan 


IT TAKES A LOT OF PLAYERS TO MAKE A TEAM 


Well EXPOSIUM '84 has come and gone, and a great show it was. For 
those of you who didn't go, shame on you. How can we convince the show 
committee that we need expanded coverage of the home market if the 
home users don't attend? Milatari was represented at the show by CUF, 
as were the other users groups in the Milwaukee area. I had the 
pleasure of working two sides of the show, as an exhibitor and as part 
of the show committee putting on the show. And I had the pleasure of 
working with a lot of good people and it really was a team effort. As 
co-sponsor of the show CUF had a booth to tell people who we are. That 
booth was manned by people from the Heath, Kaypro, Tandy, Osborne, Ti, 
Milw. Apple and Atari user groups. In addition to manning that booth 
people from the UG's also assisted with registration, seminars and 
acted as tour guides for student groups. It would be a shame to try 
and list all those from our group who helped and miss even one person. 
The efforts of all those who helped where much appreciated by the show 
committee, and on their behalf I'd like to say a big THANK YOU!!! 


DIFFERENT TEAM, DIFFERENT PLAYERS 


After my call (plea?) for help with the workshops, three people 
offered their help. So we will have a disk workshop in June as their 
first effort. Lets make this easy on them and all you people with disk 
drives, especially non-Atari types, and those who work with disk files 
give a short presentation. To help out see one of the workshop 
committee people at the next meeting. 


Next month we will have an ATR-CP/M workshop. This will also serve 
as the first meeting of the CP/M SIG. So all you ۸۲88000 people be 
sure to be at the May meeting at 2pm. The next SIG meeting will be 
held near the end of the month, the site is being worked on. Don 
Wilcox has volunteered his basement, which will hold 40 or more, if 
you bring your own chairs. If you can't make this months meeting but 
want to join the CP/M SIG give me a call for site info. You don't have 
to own an ATR to join, a CP/M computer or just an interest will do. 


WANNA BUY A DUCK??? 

Those of you who expressed an interest in the Graph-fix labels for 
the fronts of the keys on the 800, take heart. We have ordered some 
and hope to have them by the 19th. No labels or ducks, eh! 


(Continued on page 3) 
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PRESIDENT'S RAM (continued) 


How about something called the MMS Atari Networking Switch. What 
this does is let you hook up to four Atari computers to one disk drive 
or printer. The switch works automatically without operator 
intervention. If purchased before Sept. ist the price is $99, after 
that it goes to $125. It comes from Micro Systems Support in Lake 
Oswego, Oregon. See the info sheets at the meeting. 


HOW MUCH??? 


Last month we received a bill for the use of Ambruster school that 
totaled (get ready) $150. That's right One Hundred Fifty Dollars! The 
time has come to think about breaking this group into two or three 
smaller groups. A Waukesha group would be a natural since there are a 
large number of members there. The new groups could be a little more 
responsive because of the smaller meeting sizes, but still have the 
advantages of a large base of membership to draw from. Think about it 
and if „you would like to help get one of these groups going let me 
know. 


GET OUT AND VOTE!! 


Remember this month is election month. So come to the meeting and 
VOTE. 


SEE YQU. ON, THE od bh ol 54. a. 


Sample of 'GRAFH*FIX keyboard labels to be sold by MILATARI to our 


membership for $3.25 per set. 
) ۱۸۵۱۳۲ 
LABELS 
™ 


These 29 high-quality, Mylar-coated symbols are easily applied to the front face of 
each graphics key and are sized to fit all models — both the 400 and 800 as well as the 
entire XL line. They will also work well with 400 add-on keyboards. These keyboard 
labels will aid you in programming by making the Control Key Graphics readily available 
without the need to consult various reference materials. GRAPH-FIX™ should help you 
save time, improve your accuracy, and provide a convenient way to include graphics 
symbols with your text. They are very durable and should last the life of your computer! 


x: Pate GIVE YOUR COMPUTER A SET TODAY - AND SHOWA FRIEND! 


۰ Fits All Models 
e Convenient 
e 29 Easy-to-Apply 
Symbols to Label 
Each Graphics Key 


Mylar-Coated for Long Durability 
Atan TM of Atan. In 
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fix™ 
TAR 


EET NAN. 00 


Graph 
DOVES 
Creative Concepts 

1-409-727-5978 


EEL a, ee 


ma 


GIVE YOUR COMPUTER A SET TODAY! 


(ACTUAL SET) 3 
Dovestar Creative Concepts, P. O. Box 2109, Nederland, Texas 77627 © 1984 Dovestar Creative Concepts. All rights reserve 
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6. Throughput is: 


a. A measure of the amount of work 
produced by a computer. 

b. Feeding paper through a computer 
printer. 

c. Loading new programs into a 
computer. 


. A loop is: 


a. Learning operator. 

b. Repetiton of a group of instruc- 
tions in a computer program. 

c. Connection a mini- and micro- 
computer. 


8. Mainframe is: 


a. A large computer. 
b. The plastic frame surrounding a 


computer. 
c. 100 microcomputers linked 
together. 
Score 8-7: Have no fear you can talk the 
talk of computers. 

6-5: You will be able to get by as 
long as you keep nodding your 
head and ask no questions. 

4-3: Try to get out of the club. 
If you can't, keep quiet and 
smile. 

2-0: Beg to be released from the 


club. If that fails, put in 
for a trade to the Commadore 
club. If we act quickly and 
don't show your score, we 
might be able to get a 6th 
round draft choice at the 
next CUF meeting. 


eg ‘qz ‘eg ‘eg ‘gp ۰9۶ 1 


Te st 
Yourself 


How do 

uou rate 

in the 
microcomputer 
world? 


. BASIC is: 


a. A stripped-down microcomputer 
model. 

b. The latest personal computer 
model from Radio Shack. 

c. Beginner's all-purpose symbolic 
instruction code. 


. Batch processing is: 


a. Placing all microcomputers in one 
centralized area. 

b. Collecting a group of programs and 
processing then one after the 
other. 

c. Group on-line access to a computer 
program. 


. A bit is: 


a. The smallest unit of information 
recognized by a computer. 

. 10 bytes. 

. A warning symbol for computer 
mal functions. 


oT 


. A cursor is: 


a. An expression used by data 
processors when their system 
crashes. 

b. A hyphen-like or block indicator 
that shows where the next 
character will appear on a 
computer screen. 

c. A container for floppy disks. 


. Interface is: 


a. A device connecting one part of a 
computer to another. 

b. A meeting scheduled between two 
data processors. 

c. A human programming a computer. 


What last year was a severe shortage of ATARI 850 interfaces modules 
(used to connect printers and modems to the 400 and 800) has become a 
virtual famine. At the same time, the number of functional, versatile 
alternatives to the 850 continues to grow as third-party manufacturers 
rush to fill to vacuum. To the list of those on which we've already 
reported, we can add the following: 


AXIOM, 1014 Griswold Ave., San Fernando, CA 91340, 213/365-9521, 
offers two devices: the T-846, a simple Centronics-compatible 
printer interface which can be daisy-chained to the computer 
through a disk-drive ($99.95); and the AT-Wordstore, similar to the 
۸۲-846 but with a 32K buffer ($299). 

INTERFAST I is a buffered (4K), programmable Centronics-compatible 
printer interface from Advanced Interface Devices, P.0. Box 2188, 
Melbourne, FL 32902, 305/676-1275 (169.95). 

1850 EXPANSION UNIT provides communication with Centronics- 
compatible printers and RS232 serial devices (modems ) at 
transmission rates from 300 to 19,200 baud. Convologic, 421 Bay 
Tree Lane, Longwood, FL 32779, 305/869-6630. ($139). 

APE-FACE XLP. This stand-alone printer interface is daisy-chained 
through a disk drive, from Digital Devices, 151 6th St., Atlanta, 
GA 30313, 404/872-4430, ($89.95). 

A parallel interface through joystick ports 3 and 4 with disk-based 
transfer program and screen dump utility form Multivideo Services, 
Box 246, E. Elmhurst, NY 14051, 716/688-0469 ($49.95 plus $2 
shipping). 


The first quarter of 1984 saw the appearance of several valuable 
Atari-related books: 


PROGRAMS: Dilithium Press (8285 SW Nimbus, Beaverton, OR 97005, 
800/ 547-1842) has published Tom Rugg, Phil Fredman and Timothy 
Barry's 32 BASIC PROGRAMS FOR THE ATARI COMPUTER (288 pages), 
covering a wide range of programming applications--games, 
education, mathematics and graphics. The book alone is $19.95; the 
book plus the programs on disk is $39.95. 

MORE PROGRAMS: One of the biggest bargins of the year has to be the 
A.N.A.L.0.G. COMPENDIUM, more than 50 programs (19 utilities, 21 
graphics demonstrations, and 13 games) from the first ten issues of 
the magazine. For those who purchase the book, the programs are 
available on diskettew for an additional $35 (A.N.A.L.0.G., ۰ 
Box 23, Worcester, MA 01603). 

AND LOTS MORE INFORMATION: The ATARI USER'S ENCYCLOPEDIA by Gary 


Phillips and Jerry White (The Book Company, 11223 S. Hindry Ave., Los 


Angeles, CA 90445, 213/410-9466, 267 pages, $19.95) contains a 
monumental amount of valuable information on Atari computers and 
third party hardware and software. Devoted primarily to the 400 and 
800 systems, the book also treats the XL series and the new DOS 
3.0. It includes memory maps of the 400/800 and 1200XL computers 
and the addresses and telephone numbers of all major Atari-related 
manufacturers, publishers, vendors, and Atari user's groups. 
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3-D GRAPHICS 
by 
ERIK J. HANSON 


program developed on 
an ATARI 400 home computer 
with 
48K of memory 
one ATARI 1050 disk drive 
an ordinary television set 
and one ALPHACOM 42 thermal printer 


program written in 
ATARI 86 BASIC COMPUTING LANGUAGE 


COPYRIGHT 1984 BY 
ERIK J. HANSON 
ALL RIGHTS RESERVED 
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ABSTRACT 


This program, as the name 1-0 GRAPHICS implies, is a program to plot J-disensional points and lines on a J-disensional computer screen. It 
can accept the coordinates of these points and lines in either cartesian or spherical coordinates, or it can generate the points and lines 
from a cartesian or spherical function. 


3-0 GRAPHICS allows the user to look at the system from any given point, The user can also vary the direction in which he is looking bu 
either changing the direction of viewing or specifying a paticular point that he is looking towards. The user also specifies the desired 
angles for the field of vision. If a function is being used, the number of increments, the size of the increments, and the initial values 
for the two dependent variables aust be selected by the user. 


This program is limited by the facts that it is written for only one disk drive, and that 40K is the maximus amount of sesory directly 
adressable with the ATARI SK BASIC COMPUTING LANGUAGE. The program can be easily modified to take advantage of more disk drives, but the 
negory lipitation can't be changed without changing the language that the program is written in. With one disk drive, the saxiaum numbers 
of points and lines for á system are 2430 and 1243 respectively. If a function is being used, the maxisum number of points that it can 
generate is 4916. The program is designed to accomodate a Large number of points and lines, so it does take a longer time than necessary 
when handling small systems, 


Although there are some other prograes like this on the market, ali of the ones that Í have seen have been limited compared to this one, I 
have seen few prograas that allow functions, although changing the station point is somewhat comson, Í haven't seen such things as á direc- 
tion of viewing and angles for a field of view in this type of a program. Tt can also handle larger systems than aost other programs, and 
has some very nice editing features. 


PROGRAR DESCRIPTION 


In order to project these points, Í had to build many calculations into this program. Í decided to store all coordinates in cartesian fore 
so that Í could save the space that would be required if Í used flags ta indicate what (cartesian or spherical) each coordinate was stored 
in. Î decided to have the option of using a function to generate a system, so that one would be able to save tise typing and could easily 
examine some complicated functional relationships. Í also had to figure out the neccessary calculations for displaying a system with all of 
the parageters that Í wanted to use. 
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Í started making a series of proofs. Í started with a proof where the station point was at a point on the negative x axis looking towards 
the origon with no regard for a field of view. After sany attempts and revisions, Í sade the first proof shown in appendix D. I then 
started working on other proofs, for two- and three- disensional station points, using both rectangular and polar coordinates, ali looking 
towards the origon. These proofs got very complicated, so Í decided to try other methods to accomplish ay goal. The first systes was the 
one that was first created using the program, The second system is the sane as the first system, except that the coordinate axes are moved 
so that the station point is at an arbitrary coordinate (XS) on the x axis looking towards the origon. To help batter visualize the systes, 
I chose X5 to have a negative value in the prograæ, but it could be either positive or negative. The fact that XS was arbitrary helped ae 
with ay angles for the field of view. Since ay proofs give coordinates on the plane that contains the origon and is perpendicular to the 
line of sight, in other words the yz plane in the second sustes, I could pick a value for ÁS that would allow the actual screen width on 
this plane to be exactly within ay horizontal field of view. I then used ay vertical angle for ay field of view to generate a scale for 
plotting y values. Because the computer plots little rectangles instead of little squares, there is another scale used in plotting the 
points and lines so that they have the correct ratio of height to width. 


Ine of ay biggest problems in the design of this prograe was deciding on how to store ay variables. At first Í used arrays for the co- 
ordinates, but quickly found myself running out of memory. Then Í started rounding numbers to use three bytes by POkEing them into 8280۳, 
but I still ran out of room. Í was forced to use a disk drive to store my variables, so ay program requires that the user have a disk 
drive, 


Í thought that this program was a challenge for we. Í tried to use many programing REMarks in the prograa but, when Í ran out of 8680۲۷, Í 
had to remove thes. Í tried to wake a well structured program, and Í feel satisified with 3-0 GRAPHICS in this respect. I had to write 
Bary math proofs, and they were of the tupe that I had to do on ay own, since it took too much time for others to understand what Í was 
trying to do. Í tried to make parts of the program, like the editing section, very menu driven. I would have liked to draw some of the 
lines that go off of the screen that J-D GRAPHICS presently ignores, but Í was unable to completely figure out the required proof, so the 
lines are in ay list with the hope that at some later tiae someone can figure the problem out and then change the program, but they are not 
used when running the progras. The only other sajor complaint that Í have with my program is the fact that I ran out of sesory before Í had 
finished, and do not have an extensive error handler. Í wouid have like to have it examine what type of error was encountered at what Line, 
and then print an appropriate message, reset any messed up variables, and reenter the program at ihe correct line. I plan to revise this 
progas as BY ability increases, and especially after a course in vector analysis. In the future, with more powerful computers having aore 
,زا880۳‎ Í feel that this progras can be used ás á basis for a more extensive program, perhaps involving interrelations between three disen- 
sional bodies in three dimensional space involving wore functions, but right now it is not possible for se to write such a program on á home 
computer. 


Ay program is a tool to allow a computer to project three disensional points and lines onto a two dimensional computer screen. The points 
and lines can either be typed in by the user or generated by a function. Coordinates used can be either cartesian or spherical. If points 
and lines are typed in, the waxinue numbers of each are 2430 and 1243 repectively, If a function is used, it can generate a maximum of 4914 
points that can either be plotted or connected in three differant ways. Á function is also limited because it can aust be less than i20 
characters in length. Angles of vision for the field of view must, of course, be between Û and 180 degrees, 


The language that Í wrote my prograæ in is ATARI Bk BASIC COMPUTING LANGUAGE. fy Bain reason for choosing this language is that it is the 
zost comson language on the market for the ATARI howe computers. Í also chose it so that it would be easier for others to read my program. 
Other reasons for choosing BASIC are its floating point package, trig functions, ability te use graphics directly, and 1/0 handling. I also 
prefer the language because Í am very familiar with many of the shortcuts with it, like reading its six byte representation of numbers from 
the variable table. 


The table below lists the tine to convert from one system to the other and the tise to plot the coordinates on the screen. The times given 
are in seconds, and the times for functions can be considered the same for converting systeas as for points, but the plotting depends on the 
961700 for connecting the points. 
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TYPE OF TIRE TO CONVERT TIRE TO 
SYSTEA SYSTEM PLOT 


POINTS 
| 8 2 
10 lá å 
100 % Jó 
1000 %7 ih 

LINES 

1 9 2 
ið 26 é 
100 2397 3 


The following is a list of the sain subroutines and subprograms used in ay ۱۳۵0۳۵8, They are listed by their a name in capital letters that 
Í will use for any future references in this text and a very brief description of what it does. 


۱000:0۳25 the title scream for the program 
INIT: Initialization - sets up variables and files in ۵۸۵ 
END:Ending - closes files for quiting the progras 
ERROR:Error handler - tells type of error and where it happened 
RENU?The main menu for the ۵ 
ROUTINES: The routines most offen used by the subprograms 
ROUND Rounds the variables X,7,7,4,8,0,D,E,F to two decimal places 
GEIPOINT:bets the coordinates of point Í and stores in غرم‎ 
GETLINE:Gets the start (A,B,C) and end (D,E,F) of line I 
PUTPOINT:Stores point Í (X,Y,Z) 
PUTLINE:Stores line Í (A,8,0) to (D,E,F) 
PUTDETAILS:Saves important variables for the system 
GETDETAILS:Gets important variables for the system (not used! 
ATN*Calculates the arc tangent of Y/X from ۵ to 360 degrees 
GEIFN:Gets the coordinates of functional point Í {X, 1,2 
PUTFR:Saves the coordinates of functional point I (4,1,2) 
PUTFN: Saves the coordinates of functional point Í (4,1,2) 
CLOSEFN: Closes functional disk file 
CS1:Changes from the origional to the altered system 
CS0:Changes from the altered to the origional system 
REY:Waits until the user presses a key 
VIEW? Inputs the horizontal and vertical angles of vision 
DIRECTION: Inputs the angles for the direction of view or the point 
that the user is looking towards 
POLAR ‘Changes cartesian coordinates (X,Y,Z) to spherical {4,8,0} 
RECTANGULAR Changes spherical (4.8.0) to cartesian (X,Y,Z) 
INPUT: Inputs the coordinates (X,Y,2) for A$, converting to cartesian 
if neccessary 
CREATESYSTEA:Subprogras to create a system of points and lines typed in 
by the user 
DISPLAYSYSTEA: Subprogram to display a systes 
DUAP ‘Routine to dump the screen to the printer 
DISPLAYNONFUNCTIGN:Roubine to display a non-functional system 
PLOT+Rout ine to plot paints {X, 1,2) 
DRAW:Rout ine to draw lines (A,B,C) to {D,E,F? 
DISPLAYFUNCTION:Routine to display a function 
Flð:Routine to plot functional points 
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FTiRoutine to plot points, connecting same functional x 
FI2sRoutine to plot points, connecting same functional y 
FT3:Routine ما‎ piot points, connecting in a grid ۱۲۱۱۵۲ ۲۵( 
ADDTOSÝSTER:Subprogras to add to a user created system 
ADDPOINTS Routine to allow the user to add points 
ADDLINES*Routine to allow the user to add lines 
۵0051806101 The menu for this subprogras 
EDITSYSTER*Subprograe that allows the user to view and/or change the 
the program parameters, and view, change, and/or delete 
user-created point and/or Lines 
VIEWRoutine to view parameters and/or coordinates 
CHANGE Routine to change parameters and/or coordinates 
DELETE Routine to delete parameters and/or coordinates 
SUBAEMUL ‘The first menu for this subprogram 
SUBAENU2:The second menu for this subpragraa 
SUBMENU: The third senu for this subprogram 
FUNCTION: Subprogram to create a system froe a function 
FNDATA:ALL of the data needed for the sustes is input here 
CALCULATE Generates the points for the syster fros the function 
FIAENU Renu used to determine the method of plotting 


On the foliowing pages is what Í consider to be a detailed block diagram of ay program, If is not a flowchart, and Í do not have any flow- 
charts in the appendicies. It is meant to be used as a guide to understand how ay program works in a general sense. 


INPUT/QUTPUT 


This section describes the manner in which the program handles input and output. It describes the different methods that the user must use 
to correctiy interface with the program, and what happens if the user attempts a method other than the desired one. I have tried to liait 
the number of different input/output formats so that the user can feel more at ease with the program in a shorter amount of tine. 


The first fora of input request that the user encounters, and the simplest, is the request to hit any key. Although this may sound self- 
explanitory, an user who is not familiar with the computer may not realize certain things. The progran is actually asking the user to hit 
any alphanumeric key on the keyboard. Special function keys Like OPTION, SELECT, and START will not do anything. Keys Like CTRL that would 
not actually print a character will not work either. And the SYSTEM RESET and BREAK keys will stop the program from running. Even though 
this case will alast always be understood, some people who are not familiar with computers aay have trouble, and it is therefore mentioned 
to heip thes with the program. 


After the user hits a key, the program will go to its main menu. The user will then be asked to type the number of his/her chioce. After 

the user types the number, he/she aust hit the RETURN key. Although this is not stated in the program, it is assumed that the user is 
familiar with computers to the extent that he/she will know enough to hit the RETURN key. If the user types in a numerical choice other 
than those listed, the progras will redraw the menu and ask for another choice. If the user just hits the RETURN key, or enters a non- 
numerical input, the program will display an error message, wait for a keypress, and then return to the main senu. From this point on, 
anyplace in the program where a numerical input is asked for, the method of entering the choice will be basically the same as it is for the 
gain senu. The only real difference is that with numbers like coordinates that do not have to be within a certain range, any numerical 
value will be accepted, 


If the user chooses a subprogra that is menu driven, he/she will be asked to choose a letter indicating a choice. All that he/she has to 
do is to hit the key that stands for the correct choice. If a key (one that would work for HIT ANY KEY) that does not stand for one of the 
kenu options is hit, the senu will be redrawn, and the user will be asked to choose an option from the menu. This same sethod is used with 
all of the subgenus in the prograa. In parts of the progas the user may be asked to type ۲ to perfore á function. Typing ۲ will perforas 
the function, and typing any other key will abort the operation. Again the keys are those allowed for the HIT ANY KEY choice, and RETURN is 
not needed. Since capital letters are shown in the choices, and are required to run the program, they are the only expected fore for the 


latter inputs. 


In pari of the progran, the user is asked to tupe in a function for 2. The user is the expected to tupe in ihe command as if it were a 
BASIC statement. The only editing key that the user can use is the BACK S key, because the control keys will affect the input. The state 
gent is typed in and ihe RETURN key is hit when the statement is finished. If the stategent does not make sense to BASIC, an error Bessage 
will show up, the user will be requested to hit a key, and the program will be back at the main senu. 

Since this program is presently a sore mathematical than physical program, units are not too important. All of ihe angle measures are 
given in degrees because it is easier for most people to picture things in degrees than it is for thes to use radians. Since the 
coordinates are relative to one another, the units used for all coordinates must be the sage in order to get an actual representation. 
These are the only rules for units in a system typed in by the user, If a function is used, however, care aust be taken so that the units 
of x and y agree with the units of any constants in the function. If this is not done, it could result in an incorrect functional graph, 
and the problem way take quite a while to figure out. 


There are two different files that are always open in this program, They are not neccessary, but they do allow that program to be expanded 
upon very easily. The first file (#1) is used to recieve input directly from the keyboard, By changing one command, the input for certain 
parts of the program, Like the subsenus, could come from another device, like a modem, The second file (#2) is open to the screen editor. 
All printing goes to it, and it interpets the data and prints it on the screen. This could be changed to allow printing to the printer, but 
parts of the statements would have to be changed, and the input would not presently be shown. Nevertheless, it could prove very helpful to 
someone adding to the program later on, so Í chose to keep it ۰ 


There are also three disk files that are sometimes open (#3) in ay program. The first one, D:DETAILS, is used to save the parameters for 
the system. although it is possible to retrieve these parameters, there is no place in the prograa where this is done. There is a routine 
to do this in the program, however, so that these parameters could be retrieved from a work disk. At this tise, D:DETAILS is not 
neccessary, but it is included so that future expansion can be easier. The other files, D:POINTS and D:LINES, are neccessary. For á systes 
typed in by the user, these files are seif-explanitory. For a syste created from a function, D:POINTS is used to store the first points 
and, if more roos is needed, D:LINES is used to store the rest of the points {2 points/line). 


All three disk files put together take up a whole disk. While D'DETAILS is only one sector (12Bbytes/sector-i24useable bytes/sector) , 
D:POINTS is 350 sectors and LINES is 396 sectors. In all of the files floating point numbers are stored as a é-byte representation. 
D:POINTS stores the points in order, listing each point as x, y, and z coordinates. D:LINES stores the lines in order, listing each Line by 
a starting and ending point. D:DETAILS stores important numbers. First it uses one byte each to store CS, FN, and FT. Then it uses two 
bytes each to store NP and WL. Then it uses the -byte representation to store:the coordinates of the station point, the direction of view, 
the coordinates of the point that you're looking towards, the angles of vision for the field of view, the x offset for the station point, 
the initial values, sizes of increments, and numbers of increments for the functional x and y respectively. 


Throughout this progas, Í have tried to keep the methods of input the same in each of the subprogrags. fy main reason for doing this is 
so that the user will have an easier tine becomming cosfortable with By program. Í feel that if the user is more comfortable with the pro- 
gram, the user will also be more productive with it. Í believe that this program, as written, is á very prowerful tool, but Í also believe 
that it can be made even more powerful for some users by tailoring it to a specific application. It is for this reason that Í have tried to 
structure it so that expanson is easy, but whoever is to be expanding it should preferably try to keep the same structure throughout, other- 
wise one of the best aspects of the program will be lost. 


SARPLE OUTPUT 


On the last two pages of this section, there are photo-copies of the screen dumps of actual images created by this program., In this pari 
of the documentation, Í will descripe what type of a sustes was used to create each projection. I chose these examples because they show 
sost of the capabilities of this program. Í could not, of course, presen’ every possible option on two pages, but Í feel that Í have a 
fairly good representation of the capabilities of ay prograa. 


The first group of graphs {1A thru {E} are all of the cartesin function z=3sindéx + dcosdéy. The function has the initial values of both x 
and y at مق‎ The sizes of the increments for both x and y are Í, and the numbers of both x and y increments are 10 each. This results ina 
{21 point square (in the x,y plane) graph of the function. The function is to be plotted by connecting the points in a x,y grid. 


The graph labled 14 is the projection of this system as seen from a station point at the cartesian point {-30,19,50) looking towards the 


cartesian point at (1,-1,1) with 49 degree fields of view both horizontally and vertically. The graph labled 18 is the save graph as 18, 
but the fields of view are each only 30 degrees, so the projection appears larger because less area has to fit onto the same size screen, 
The next graph in this set, if, is the sage as 18 except for the fact that the station point has soved from the cartesian point (-30,15,50) 
to the cartesian point (-30,15,100). The graph iD appears to be the graph if, but á close look shows that it is actually shifted slightly, 
It is the same as 10, but instead of looking towards the cartesian point {1,-1.1}, you are locking towards the cartesian point {-3,0,0). 
The last graph, IE, is the same as 1D, but the graph is streched vertically, This is done by using two different angles for the field of 
view. While the horizontal angle is stiil at 30 degrees, the vertical angle has been decreased to 10 degrees. This ability is very useful 
for examining functional relationships. 


The second group of graphs {2A thru 20) are all of the cartesian function z=xtxtyty, The function, like the last one, has the initial 
value of x an the initial value of y both equal to -5. The sizes of both the x and y increments are 2, and the numbers of increments are 
five each. The resulting system is a 36 point square on the x,y plane. The function is to be plotted by connectinng the same % 
coordinates. 


The graph labled 2A is the projection of this system as seen from a station point at the cartesian point (-30,15,26) looking towards the 
cartesian point (-1,1,-1) with a horizontal angle of vision of 120 and a vertical angle of vision of 140 degrees. The graph labled 28 is 
the same as 2A except for the facts that you are now locking towards the cartesian point at (-1,1,25) and the angles for the fieid of view 
have been changed to 45 degrees horizontally and 120 degrees vertically. The graph of 20 is the same graph as 2B, but instead of just con 
necting the same x coordinate, the sage x and the same y coordinates are connected in a grid. 


The third group of graphs (3A thru 30) are all of the same system that was typed in by the user. This system consists of a point at the 
origon that is directly in the center of a 21212 square. The square is made up of twelve lines that, using cartesian coordinates, have end- 
points at the eight possible paints given as {+/-i,+/-1,+/-1), Each one of these Lines was typed in by the user along with the point in the 
center, 


The graph JA shows this system as seen from a cartesian station point at (-15,5,8) looking towards the origon with horizoltal and vertical 
angles for the field of view of 45 degrees each, In the second point, JB, the horizontal angle for the field of view has been changed to 20 
degrees to show the effect of streching that a change like this can produce. In JC the angles for the field of view are both set at 30 
degrees, and you are now looking towards the cartesian point {-1,1,-2), Notice how objects distort when you view thea fros an angle. This 
was By Bain motivation for writing this program, Í love the fact that Í can now observe and/or measure this incredible effect. The graph ID 
is the same as this graph with the exception that the station point is now at the cartesian point (-25,0,8), 


The last set of graphs (4A thru 4F) are of a very siaple polar function. The function is r=4, so it produces a ball. The xy angle (X in 
the progam or theta in mathematics) starts at Û degrees and a total of twelve increments of 30 degrees each are added to end with a 340 
degree angle. The {xyz angie {f in the program or phi in mathematics) starts at -90 degrees and a total of six increments of 30 degrees 
each are added to end with á 90 degree angle. Í chose to connect the points that had the same functional y (phi) value. 


In the graph 4A, the system is seen froe a cartesian station point at {-15,5,8) Looking towards the cartesian point at (-1,1,-1) with áð 
degree angles of view both vertically and horizontally, The graph 4B is the same as 4A, except that the station point is moved to the 
cartesian point (-10,10,10}. The graph ál is the same 4A except that the angles for the field of view are both set to 75 degrees. 4) is 
the sae graph as 40, but the functional coordinates are now connected in a grid. The sase thing is done in 46, which is the same as 8 
except for the plotting method. 4F is the same graph as 4E, except for the faci that you are looking towards the cartesian point {0,0,0) 
instead of the cartesian point (-1,1,-1), 


As Í have already said, this is just a sawple of the capabilities of the program, There are actually much larger systems, sore complicated 
functions, and many different ways of designating parameters that those shown here. This section is meant to give examples of some of the 
easier uses 50 thal the user has a better idea of what to expect and of how to use the progas to his/her best advantage. 
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APPENDIX A - PROGRAM LISTING 


This sections only purpose is io present a listing of ay program so that others may see what Í have done and how Í have dene it. Hopeful ly 
some users wiil want to expand upon ay program to aake it better for a specific purpose or just better in every respect. If the user ion 
decide to alter my code, Í would like to ask that however it is altered, please take care to let it use the same input structure throughout 
the program (not neccessarily the same as was started with) so that it is easier for someone to get used to the program. 


it should be noted that this progras and this documentation each carry copyrights. Any action involving this program or this documentation 
in which a party knowingly uses any part or result of this progas or the documentation te secure a private profit is hereby prohibited. 
Duplication and distribution of this program or the documentation to others on a non-profit basis is allowed. Any expansion or revision of 
this prograa or documentation is allowed provided that no intentional profit shall result fros it and that it is free to be duplicated, 
distributed, and in turn revised following these guidelines, If you have any questions or comments about this program feel free to contaci 
ae at the address and phone nusber below, If you do revise this progran, Í would greatly appreciate recieving á copy of your revision as 
this would allow me to combine many revisions froe many different sources into a single program, fy address and phone number are: 

Erik Hanson 

Réi 15318 |۷۱ 328 ۰ 

fenomonee Fails, WI 1001 

(414) 252-3146 


í REA 11 GRAPHICS 

2 REA COPYRIGHT 1984 

3 REA BY ERIK HANSON 

4 REM ALL RIGHTS RESERVED 

10 0110 20 

100 GRAPHICS 181۳091۲10 4,5+7 #4;:"3-D GRAPHICS POSITION 3,5:? Ré, "by erik hanson POSITION 3,737 Bé: COPYRIGHT ۱9۵۳۰۸۲۲۵ 
200 CLR :۸۸-۱ ۰۵1 AH110) BSCE) C16) DLI PHB LE? 3 17) SHEPEEK (1341+ IPEER (ISHARA 

230 TRAP 400:DEG :OPEN #i,4,0,"K:":OPEN #2,8,0,"E:":G0SUB 100:POSITION 3,108? Ró FLIP DISK QVER":SP=369sSL=4s0=256:00=0:03=), 57042100 
245 09=1:0X=150:0Y=140:6C0, 64706 EP=718 EL E150: EN=123:P]=3,141597465:84="the start of line “ii$="the end of line " 

252 D$="point number “P$ N POINTS L$- D:LINES" POSITION 3,1137 #ó;it any key "GET #1, AT:6008 300: 505 0 
300 CLOSE RI:CLOSE #2:60808 041۴0۴ 1200 TO G:NEXT ۵ 

400 IF PEEK(195)>127 THEN CLOSE #3 

405 POKE 557, 34:TRAP 400:? #2:"There was an error-"sPEEK(I99) 

410 7 12:۳2 Line ۵۵۵ 

420 GOSUE 900 

200 GRAPHICS Q0:SETCOLOR 2,80,40:? #2;"i=Creata a new sustes"!? #2;"2=Display systee"s? #2," 3=Add to syster* 

217 ? f2;"4=Edit syste"? #2: "I-Create systems from function? #2;"h=Quit" 

321 ? #2;"Your choice"; INPUT ASIF ACG? OR Add OR AÞINTÍA) THEN 500 

323 1۳ Azé THEN RETURA 

524 7 2:۲ ۳:6058 At1000t{ A=4) 1004 {A=5}#3000:60T0 500 

7۵0 جع(‎ #83) /04 Y-INT 1۵4۵5/۵4۱ ZINT { 204 #3) dg AS INT í ht 4403) 04s BINT (2040) 4 

FOL NOREEN H REIK ۲۲۶+ 25۱/24۰۳211۷] (FRM ES) /34 RETURN 

FAQ 2۲۴1۵-181 INTIS) : 22-۲۶2012۵۴ 

711 POINT #3,¥, EFOR J-80 TO 2:FOR 12۵0 10 GET ۸3۸۰۴۵۲ ۱۵۸۸۰۸۲ ۱۱۵۵۵۸۰۸۸۲ JBO} ۱۱-۵ (29) ۱2254 2( RETURN 
720 (21*303: IRIS 121-181 20:۲2۲+۵] ۱۴01۲ ۲ 

721 FOR J80 TÛ S:FOR K-80 TO 51661 #3 4:POKE 30۷۱۸۸۸۲۸۲ 5۱0۱286۵۰۴۸۲ JrA=3(20) +B=5(09) 1025 (0) ()وعل؛‎ SE=5(4) F=5(5) RETURN 
730 SRR g-ig RTh eiS 

731 POINT #3, 1, FOR J-00 TO Z:BER=5(J) FOR 1280 TO SPOT #3, PEER(SMK) NEXT RSHEXT JiRETURN 

740 SAEED e NTA 1-YAN 

741 POINT ۸3۲۱2۰۲۵۴ FRO TE 3: ERSUN: FOR 220 TO PPUT H3 PEER(SA+K) NEXT REHET ۵ 

750 و1 200و‎ )29(10 SAAS TRAF 

Al SDAL UPF SUGH AIN ارزو‎ (NL /9) دز‎ ARS PEN 81 8,0 تم‎ 

752 PUT Ha, CS:PUT 22۷۱ ۵0۱۳ B3, PUT Bd زر‎ á 3521۳0 B2, FE JF TE ESLER Head 

753 PUT #3, ۳0219:۷۲۲۲ Ki EN وناز‎ HALETEN 


720 OPEN #3,4,00, "D:DETAILS":GET #3,09:6ET #3,FN:GET #3,FT:6ET #3,X:GET ۷5۱۱۵۵۰۵۵ #3, KGET 35۱۲00 JBO 16 17 
756 FOR ۱22۵ 10 SET 3۰۲۵۴ 309۸۲ KiS(J)=MEN:NEXT JSCLOSE ۸3:09 )00(۰۱0-۵)29( :2025(2) ۱1۴-5) 3( PP=514) i}P=8(5) :YP=5(6) 
FS? ۳29۱7۱: SB PES (G (10(:۳۷29)12)وعواز:‎ DESI NX=5(14) FY=S(15) D256) ۰۷۲-۵۱17۱۱۱۲ 

760 IF 0ع(‎ THEN 2330+ 1802) 100 ( RETURN 

Jól 12۵1۷1885)1/1([ 

762 IF 1400 THEN 765 

763 IF ¥3=80 THEN RETURN 

764 T=360-Z:RETURN 

765 IF ۱-۷0 THEN 2=180-2:RETURH 

766 121001211۴1118 

770 TF DAF AND 01۴ THEN POINT #3, EF ENSCLOSE #3:0PEN #3,4,00,L6 

771 IF 1428۴ AND GAP THEN POINT #3,ELENSCLOSE H3:0PEN #3,4 00, P$ 

772 IF DAP THEN X={1-AP)+18-18: Y-INT )1/125(:221-12125:1-1491 16070 1 

773 IF 142۴۴ THEN 6070 0 

780 TF DAP AND 014206 THEN POINT 13:6۴ ENSCLOSE #3:0PEN 13,1۵۸ 

781 IF IAP AND ODAP THEN POINT #3,EL,EN:CLOSE #3:OPEN #3,12,90,P$ 

782 IF DAP THEN 5(80)=4:5(09)=155(2)=25X=( 1-AP }#18-18+ Y=1NT (X/125) sZ=X-Ya1 258 Y= 74516070 731 

783 IF 1420۴ THEN GOTO 730 

790 IF 1420۴ THEN POINT 33,2۳ ENCLOSE #3:RETURN 

791 IF DAP THEN POINT #3,EL ENSCLOSE B3:RETURN 

800 POKE 55۶, 00:C9=89:G0SUR 750:1F ۲۷-۵۶ THEN 0 

201 IF ۱۴2۵۵ THEN OPEN #3, 12,80,P$:FOR I-09 TO NP:GOSUB 710:G0SUB 820:60SUB 730:NEXT IPOINT 15,۲۳, ENCLOSE #3 

802 IF ۱۱2۵۵ THEN POKE 559, 34:RETURN 

803 OPEN #3,12,00,L$:F0R I-09 TO NL:GOSUB 720:X=A:Y=B:Z=C+G0SUB 920:A=XsB=YsC=ZsX=Ds¥=EsZ=FsG0SUB 820:0=K:E=1:F=2:605UB 74010۴1۲ I 
804 POINT #3,EL,EN:CLOSE #3:POKE 559, 34:RETURN 

810 OPEN #3, 12,00, PS:01=00:FOR جع‎ TO (MMH )#(HY#1):G05UB 770:60SU8 820:G0SUB 780:D1=1:HEXT I:POKE 559,34:6070 790 
820 X=X-X0'Y=¥-YO+Z=Z-Z0+G05UB 950:B=B-TPsC=C-PPsGOSUB 960: X=X+XS RETURN 

850 POKE 557, 00:C5=90:G0SUB 750: IF FN=09 THEN 860 

S51 IF ۱۳۲۵۵ THEN OPEN #3,12,00,P8:FOR 1209 TO ۱۴۰۵0938 710:60SU8 87016098 730:NEXT IsPOINT 85,2۳ ENSCLOSE #3 

32 IF ۱۸2۵۵ THEN POKE 599, 34:RETURN 

853 OPEN #3,12,00,L$:FOR 1209 TO NL:GOSUB 720:X=AsY=BsZ=C:G0SUB 870:A=XsB=VsC=ZsXeDs YE: ZF sG0SUB B7Ö:D=K:E=T:F=:GÖSUR 740:161۲ I 
854 POINT #3 EL ENCLOSE H3:POKE 599, 34:RETURN 

860 OPEN #3,12,00,PS:01=90:FOR 109 TO (NK+09)2(NY+89):GOSUB 770:G0SUB 870:60SUB 7B0:O1=1:HEXT 1۱۴00] 559,34:60T0 790 
870 X=X-XS:G0SUB POO:B=B+TP SC=C+PPSBOSUB 960: X=X+X0+ ¥=¥#¥0s2=2+Z0; RETURN 

900 7 ۷۵:۲ "57 #2: Hit any key to continue"sGET #1, ASRETURN 

910 7 #2; What is your horizontal (x,y) angle of vision (O<angle<i80)":s INPUT TV 

111 ۲ #2;"Hhat is your vertical (x,z) angle of vision (O<angle<i80)";!INPUT PV 

912 A=GINCTV/2) /COS(TW/2) sB=SIN(PV/2) ÆOS(PN/2) sS¥=(CY-1)/(CK-1) A/R: XS=-CX/A RETURN 

920 7 #2;"Type Í if looking towards a point 2 if looking in a direction":? #2:"Your choice "; INPUT fF 

921 IF PoINT(P) OR P&B? OR P32 THEN 920 

922 IF P=2 THEN ۴2۵0:51۲8 925 

923 AS="the point ":GÚSUB PPOsXP=X3YP=¥SZP=Z31F XOF THEN X=X-XOsY=Y-YOs2=7-Z0:G0SUB 950: TP=8:PP=0:RETURN 

925 7 #2;"What are the angles (xy,xz) of the direction that you are Looking in", INPUT TF, FF: 

950 APSOR(XEX+Y#Y+782} رف‎ :GOSUE 740s 0=25Z=7 =4: K=D3 RETURN 

9۵0 X=ARCOS(B)#O05(C)s Y=AXSTN(B)#COS(C) sZ=A¥STH(C) "RETURN 

990 7 #2: Type Í for rectangular coordinates or 2 for polar coordinates (degrees) for ۰ 

991 INPUT ۸:1۲ ASB? OR AD2 THEN 990 

992 IF ۸-2 THEN 994 

993 ? #2:"What are the coordinates (x,y,z) for “A$ INPUT X,Y, RETURN 

994 ? 82: "What are the coordinates (r, theta, phi far “sA$::INPUT ALB C:G0TO 940 

1000 CS=Q0:FH=0:? H2:"}";:A8="the station point":S0SUB 990:XD=X:Y0=7:Z0=Z:G0SUB 920 

1001 ? #2:"How many points, and how sany lines for this system"; +INPUT NP NL 

1002 IF NPÞINTINP) OR ۱۴4۵۵ OR NLSINT(NL) OR 420 THEN 1001 

1003 IF NPOAP OR NOAL THEN ? F2; "Hot enough ۲۵۵۵۱۳:۵1 1050 
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1004 IF ۱۳-۵0 THEN 1006 

1005 ۸۵209:0۴60 #3,12,00,PS:FOR I-09 TO NPSAS(L4)=STRE(T):S0SUB 990:G0SUB 730:HEXT 1۱۳01۷۲ ۷3,۲۲, EWSCLOSE #3 
1006 IF ۱2۵0 THEN 1009 

1007 OPEN #3,12,00,L$:FOR I-89 TO MLtAS=BS:AS(L9)=STRE(T) :BOSUB 99010121102-1 :03211۵209184)17(29109)[( 
1008 GOSUB 990:A=D1:E=02:C=03:0=K:E=:F=2:60SUE 740:HEXT T:POINT #3, EL ENSCLOSE #3 

1009 GOSUB 9103FX=80DX=FXSNX=DXsFY=WXsDY=FYSMY=DY sFT=NY G0SUB 750 RETURN 

2000 IF CS=90 THEN GOSUB 800 

2001 GOSUB 2500:GRAPHICS 24:SETCOLOR 2,00,0:C0LOR 39:1۲ ۴۱-۵0 THEN SOSUB 2100 

2055 IF ۲2۵۲ THEN GOSUB 2400 

2080 POKE 53279, 80 

2063 IF PEEK(S3279)<4 THEN RETURN 

2085 IF PEEK(S3279)>6 THEN 3 

2070 X=PEEK (S60) +04PEEK (561) X=PEEK(X+4)+R4FEEK{ X45) OPEN 43,40,68, "Ps "SPOR 1200 TO 7679s JPEEK(X+T) 
2075 PUT #3, J-(J5155) NEXT CLOSE #3:6070 2060 

2100 IF ۸۴-۵ THEN 2115 

2104 OPEN #3,4,0,PS:FOR 121 TO HPSGOSUB 710:60SUB 2210:1617 T:PÐINT ۸3,۲۴, ENCLOSE #3 

2115 IF ۱۸2۵ THEN RETURN 

2116 OPEN #3,4,0,L8:FOR 1-1 TO NL:GOSUB 720:G0SUB 2220 

2181 NEXT IPOINT #3,EL,EN:CLOSE #3:RETURN 

2150 IF ABS(D)>ABS(XS) AND SGN(D)=SGN(XS) THEN RETURN 

2151 ۱220:0098 2350:6070 2200 

2200 IF ۱1 THEN 2230 

2201 RETURN 

2210 IF ABS(X)ABS(XS) AND SGH(X)=SGN(XS) THEN RETURN 

2214 J=VEXS/(XS-X)SK=ZEXS/ (ASAD IF ABS(.D<CX AND ABS(K)<SY#CY THEN PLOT CXtJ, (CY-Sv#K)400 

2216 RETURN 

2220 IF ABS(A}>ABS(XS) AND SGN(A)=SGN(XS) THEN 2150 

2222 D1=B4XS/(XS-A) D2=CaXS/(XS-A) IF ABS(DLISCX OR ABS(D2)*SY>CY THEN 2200 

2225 PLOT ۲۷۶01, آبا)‎ 

2230 IF ABS(D)>ABS(XS) AND SGN(D)=SGN(XS) THEN 2250 

2232 D3=ERXS/(XS-D) sD4=F #XS/(XS-D) IF ABS(DS)SCX OR ۸05104(*51(0۱ THEN 2250 

2235 0۱۵۷۲0 CX+03, (CY-S¥#D4) #60: RETURR 

2250 HEB9:GOSUB 2350:RETURN 

2350 J(E-B)/(D-A) K=(F-C)/(0-A) K=(CX-B+ JBA} /(HOX/4S) SG05UB 2370: X=-(CX+8-J2A)/(J-CX/X8): 808E 0 
dudl K=(CY-CHReA)/(KHCY/¥S/ SY) SGOSUR 2370: X=-(CY+0-KEA}/ (RLY /NS/SY) GOTO 2370 

2370 ir {YA AND OGD) OR (XSA AND KED? THEN RETURN 

2371 Y=eCX-A} ار‎ Mens Í sG=Y#NS/(85-X) sHEZ#XS/(X5-¥) 

2373 IF ABS(G)>CX OR ABS{H)#SYCY THEN RETURN 

2377 IF Wei THEN PLOT CX+8, (fY-HeSY)#60 

2378 IF ۷-۵ THEN DRAWTO CX+G, (CY-HeSY)#60 

2379 RETURN 

2400 SOTO 2410+FT#20 

2410 OPEN 15,4:0:۲۸:120:۲0۲ 2220 TO NK:FOR S-80 TO AYQI=1sI=ReNY+R+S+G9G0SUB 770:60SUR 2210:161۲ S:WEXT R:6070 790 
2430 OPEN 83,4,0,P8:1=0:FOR ۸22۵ TO NX:Q1=1'T=RANY+R+Q9:G09UB 770:G0SU8 2210:D=Y:E=Y:F=I:FOR S209 یبمبوب 123 :]۱:01[ و[‎ 
2431 GOSUB 770:A=D:B=ESE=FSD=XtE=YSF=Z:G0S0B 2220:161۲ S:NEXT 8:۵0 790 

2450 OPEN #3,4,0,P8:T=Q0:FOR S-00 TO طراو۸۱۰012[1:129+09:00‎ 770:60SI 2210sD=XsE=VsF=Z:FOR R=09 TO NXsO]=]+T=Reny+R+S+09 
2451 GOSUB 770:A=D:8=E EF eD=XtE=¥SF=ZEGOSUB 2220:1۴1۲ R:NEXT 5:6070 790 

2470 GOSUB 2450:0010 2450 

2500 7 92;"> This subprogram will display yourpresent system, When it is finished" 

2010 ? Az; plotting, the keyboard speaker will":? #2:"sound a click. You can then view the" 

2520 ? #2;"picture for as long as you choose. If you enter the attract mode, just hit a“; 

2030 ? #2;"key to avoid it. If you want to duap":? #2;"the screen to the printer, hit the" 

2540 ? #2;"START key. When you are finished withthe picture, hit either the OPTION or" 

2500 7 #2;"the SELECT key to return to the main“? #2;"progras senu, “GETO 900 
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3000 IF ۲۷-۵۶ THEN ? #2;"This is a function, not a systen“:6010 900 

3005 IF 05-97 THEN 00916 850 

3020 GOSUB 3600:1F 4220 THEN 3100 

3030 IF 42/6 THEN 0 

3040 IF ۸-81 THEN RETURN 

3050 8010 020 

3100 ? #2;"How many points do you want to add": INPUT ۸1۲ 18۲) OR CGO THEN 3100 

3115 IF HG) THEN 900 

3120 IF ۱۴۶۲۸۴۴ THEN ? #2;"There is not enough ۳۵۵۵۳:۵010 900 

3125 AS=DS:OPEN #3,12,0.P8:FOR 123107 TO NPAWSAS(I7}=STRECT)SGOSUR 970: G0SUR 730:NEXT 1۱۸۲2۷۴۴۸۱۴01۲ ۸3,۲۲ “ENCLOSE ۸5۰۵0۲8 900 
3300 ? #2;"How sany lines do you want to add"; INPUT ۷:1۲ NINTH} OR ۷4۵0 THEN 3300 

3315 IF ۷-90 THEN 900 

3320 IF ۱+۸۷ THEN ۲ #2;"There is not enough room" sG0T0 0 

3325 OPEN #1,12,0,L4:FOR 121489 TO HLH:Af=B SAS (19) =STRECT) GOSUB ۱9۵۰012۱0221 +01-1 ۰۵9-4۰44 )1/(<0]3441( 
3370 00518 9905 A=D1SB=D250=DEsDEXsE=¥2F=Z:G0SUB 740:NEXT IPOINT #3, EL ENSCLOSE #3:6070 900 

3600 7 F2, Hit P to add points":? ۸2۱۳۷۱۱ to add lines";? A2s"Hit ۵ to quit"sGET #1,A:? #2, CHRS(A) RETURN 
3000 IF C5=1 THEN GOSUB 850 

5002 GOSUB 5400:1F ۵-91 THEN RETURN 

5003 IF ۸206۵ THEN S100 

5004 IF Axé? THEN 5300 

005 IF ۸-۸8 THEN 5500 

5008 GTG 5002 

5100 GOSUB 5700:IF ACHES THEN 5120 

5111 ۲ #2;"The coordinates of the station point aret";:X=X0;Y=YOsZ=Z20:G08UB 950:G05UB 700 

3113 7 12:۳۳:۰, r," yy") in rectangular coordinates":? #2;" ort{":A:" "Bi" زا‎ polar coordinatas":6070 900 
5120 IF ۸6:۵0 THEN 5130 

5121 ? #2;"You are looking at angles of:":X=TP+Y=PP:G0SUB 700 

3123 7 #2;" "KX," degrees in the (x,y) plane"s? ۸2:۵۵ ";Y;" degrees in the Ír,2) planes IF P=0 THEN 900 
5125 ? #2;"Towards the point at:":X=XP:Y=/PsZ=ZP:G0SUB 950:G0SUB 700 

2127 7 iA", Ye" L") in rectangular coordinates":? #2;" ors("sAs" ":Bs" in polar coordinates" :60T0 0 
5130 IF A580 THEN 5140 

5133 GOSUB 5800:IF ۸۵5 THEN 3140 

134 FOR 121 10 HPSGOSUB 315311611 1:0010 900 

S140 IF AOL THEN 5150 

S141 ? #2:"What is the first point that you want to see"; INPUT JHF JHP OR KO OR INT) THEN S141 

S143 7 #2;"What is the last point that you want to see"; INPUT KIF KOMP OR KSJ OR KINT(K) THEN 5143 

S145 FOR I= TO KG0SUE 5150:1617 1:0010 900 

5150 IF ۸47۶ THEN 5158 

dll 7 #2;"What point do you want to see"; :IKPUT 1:1۲ DNP OR 140 OR IÞINT(I) THEN S15! 

S133 OPEN #3,4,0,PS:G05UB 71060508 9۵۵0:۵098 700:? #2;"The coordinates of “:D$:1 

S155 7 Al are" "Ys" Ze") in rectangular"? #2;" ره‎ in polar" iPOINT #1, EP ENCLOSE #3:6010 900 
5158 IF ۸277 THEN RETURN 

5159 GOTO 1 

5160 IF A276 THEN 5195 

S163 009۲ 3000:1۲ ۸۵5 THEN 5170 

3164 FOR 121 TO HL:GOSUE 3183116۲ 1:01 0 

5170 IF ۸:71 THER 5180 

2171 ? #2; "What is the first line that you want to see"; INPUT JSIF DNL OR KO OR PINTS) THEN SÍA 

52173 7 #2;"What is the last line that you want to see"; INPUT ۸۱۲ ONL OR Ké OR KAINT(K THEN S173 

5174 1۳ KNL OR KCJ OR KHINT(K) THEN 5 

5175 FOR i=l TÚ K?GOSUE 3185:0611 HODE 900 

S180 IF ۸427 THEM 5192 

S181 7 #2;"What Line do you want to see"; INPUT DIF DHL OR 140 OR 110141۱ THEN 1 

5181 OPEN 83.4.0, LOOSE 720+X=AsY=B:Z=C+G05UB P3000906 700:7 #2; "The coordinates of the start of line number *;Í 
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185 ? fare" "rf," 8:20") in rectangular? 2:" opt("sAr" "Be" "0 in polar" 

3187 GOSUR 7۵0۰120۰۲2۲۰22۴۲ 160908 FIÖ:G0SUR 70:7 #2;"The coordinates of the end of Line nugber “+1 
S189 7 12:3۳) اور‎ in rectangular? #2," ors(":As" "Bs" ":0:") in polar "iPOINT #3, EL “ENCLOSE #3:6070 900 
5192 IF ۸-77 THEN RETURN 

5193 8070 131 

3174 GOTO 900 

195 IF ۸62۵65 THEN 5200 

519۵ ? H2;"The angles of vision are as follows: "sX=TVsY=PY:G0SUB 700 

198 7 RA," "را‎ degrees in the (x,y) plane's? #2;"and ";¥:" degrees in the (x,z) plane":G070 900 
5200 IF A=77 THEN RETURN 

5279 GÖTU 00 

2300 60918 5700:IF ۸85 THEN 5320 

111 GOSUR SLLLAS="the station point" :G0SUB ۱۱۵۰02۸۰۱۵2۱۱201 

2312 IF ۲-۱ AND ۱۵1۴ THEN X=KP-XOsY=¥P-YOs2=ZP-ZO:G0SUB 950: TP=BsPP=f 

3313 60918 750:001 0 

2320 IF ACS THEN 5330 

2321 BOSE 3121100918 920:G0SUB 750:6070 900 

3330 IF ACO THEN 5340 

3132 GOSUE 3300:1۲ ACT THEN 5340 

5333 FOR 121 TO NP:G0SUB 5342:NEXT 1:6070 900 

5340 IF ۸427۶ THEN S390 

J341 7 #2; "¥hat point do you want to see"stIAPUT DIF INP OR 141 OR DÞIKTUD THEN 5341 

5342 GOSUB 5101:0۳60 #3, 12,0, PHARD AS (i4 =STR$(1) -GOSU P90:60SUR 7301۳310۲ 15,۲۴ ENCLOSE 83:0018 900 
2190 IF ACO? THEN 5358 

HH 7 #2;"What is the first point that you want to see”: INPUT HIF DNP OR KOOR JDINT(J) THEN SI 
5303 7 #2;"What is the last point that you want to see"; INPUT KIF KONP OR 4۵ OR KOINT(K) THEN S352 
3355 FOR I=J TO ۸:80908 S342:WEXT 1:0071 0 

5358 IF ۸277 THEN RETURN 

dd? GOTO 5300 

5360 IF ۸427۵ THEN 5390 

53462 GOSUB 5000:1۴ ۸۵۵5 THEN 5370 

5363 FOR 121 ۲0 NL:GISUR S372:NEXT I 

51/0 IF ۸4279 THEN 5380 

5171 ۲ #2:"What Line do you want to see"; :INFUT DIF DRL OR 141 OR DINTO THEN 5371 

53/3 GOSUE 3100: 89-04:۵4 )19(-5789)1(:60508 ۱۶۵۱012۲: 322۲:0521 :۵424:۵41171-5189)1(:80518 990 

2377 ADABA CDJ EGEY FZ OPEN #3,12,0,L5:60SUÐ 740:POINT H3 EL, ENSCLOSE #3:6070 900 

3380 IF ۸6271 THEN 5388 

S381 7 #2;"What is the first line that you want to see": INPUT J31F DNL OR KO OR DINT:J) THEN 5301 
383 7 #2: What is the last line that you want to see"; INPUT ۱۱1۲ KOHL OR KGI OR INTIK) THER 5 
3385 FOR i= 10 ۸:۵5 S372+HEXT 1:6070 ۵ 

S370 IF AGS THEN 5398 

2391 GOSUE 219۵:0098 910:60SU8 750:6070 900 

5396 IF ۸27 THEN RETURK 

99 GOTD 5300 

5500 IF ۷۲۶۵ THEN ? #2:"Hit P for points" 

505 IF ۷۸۵ THEN ? #2;"Hit L for Lines" 

510 7 #2;"Hit ۸ for the aain menu :GET PLAT #2 CHRS(A} HIF A80 THEN JEW 

5524 GOSUB 900:1۳ ACES THEN 7 

5521 ? #2;"Type Y to delete all points"; GET #1,A:7 #2,CHRS(A) IF ۵48۴ THEN RETURN 

525 ۱۳2۵:۵018 900 

3527 IF 44271 THEN S540 

328 ? HA; "What point do you want to start with’; INPUT JIF PINT OR Ki OR DAP THEN 552 

5550 7 2 What point do you want to end with", INPUT EVEF KINTIR) OR KGJ OR KONP THEN S30 

Suse ? #2:"Type Y to delete points "یلو"‎ through "۱۰۵6۲ ۸1,۵۸۴ #2, CHRS(A} IF ۸428۶ THEN RETURN 
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Soda OPEN #3,12,0,PS:FOR 2220 TO NP-K:I=K+R:GOSUB 710:I=J+R:GOSUE T3O:NEXT RSPOINT #3 EF EN:CLOSE 3:۳۲:00] 00 
040 IF 4379 THEN 8 

5041 ? #2: "What point do you want to deleta”: INPUT AIF ADINT(A) OR ACL OR ASMP THEN 5541 

3044 7 HA; "Type ۲ to delete point ":A:GET #1,B57 #2 CHRHENIF BB? THEN RETURN 

5545 OPEN #3,12,0,PS:FOR ۸2۸ 10 ۱۳-29: 1284۵9: 8058 710: T=R:G0SUB 7301۴۲ R:POINT #3, EP, EN:CLOSE #3:HP=AP-O9:G070 900 
3540 IF ۸-77 THEN RETURN 

3547 6010 900 

Saud IF ۸627۵ THEN 5580 

Jal GOSUB 300011۲ ۸4۵5 THEN 5557 

2534 7 #2;"Type Y to delete ali Lines":GET #1,4? #2,CHRE(A)SIF ۵689 THEN RETURN 

5556 ۱۷20:۵010 906 

5357 ÍF ۸4۲/1 THEN 0 

5908 ? #2;"What Line do you want to stari with"; INPUT 1۲ج‎ DINT(J) OR JGL OR DHP THEN 5598 

J340 7 ۷۵: What Line do you want to end with"; INPUT KIF KOINT(R) OR Kid OR KOMP THEN 5560 

3062 ? #2;"Type Y to delete Lines "رل"‎ through "3K: GET #1,A? #0, CARS(A) SIF A87 THEN RETURN 

S065 PEN #3, 12,0, LSFOR 890 TO WL-KSISR+RSG0SUB 720: I=J+R:GOSUB 740:NEXT R:POINT #3 EL ENCLOSE H3:ML<NL-Ktd:5070 900 
3170 IF ۸4۸7۶ THEN 5578 

5571 ? #2;"What line do you want to delete”; INPUT ۵۸:1۲ ADINT(A) OR ACL OR ADNP THEN 1 

5573 7 #2; "Type ۲ to delete point "۱۵۰۵۲۲ #1,B:7 #2, CHRS(B):IF BOB) THEN RETURN 

5075 OPEN #3,12,0,L6:FOR R=A TO ML-O9+T=R+G9:G0SUB 720: I=R:GOSUB 740:NEXT R:POINT #3, EL, ENCLOSE 33:2 -09:0010 700 
5579 IF ۸277 THEN RETURN 

30/۶ 0010 900 

5580 IF ۸277 THEN RETURN 

5585 GÖTU 5500 

2599 RETURN 

3600 7 #2;"Hit ¥ to view coordinates":? #2;"Hit C to change ccordinates“;? 12: ۷۱۸ D to delete coordinates“ 

410 ۲ ۸2:۳۵ ۵ to quit":GET ۷۱۸۸۲ #2, CHRS(A} RETURN 

3700 7 #2;"Hit 5 for the station point™:? #2:"Hit Û for direction of viewing":IF NP>O THEN ? #2:"Hit P for points" 
5720 IF HOO THEN ? #2;"Hit L for lines” 

5723? #2;"Hit A for angles of vision":? #2;"Hit Á for the main senu":GET #1,As? #2, CHRS(A) RETURN 

S800 ? #2 Hit Á for all“:? H2;"Hit Û for one":? #2:"Hit G for a qroup"+? #2;"Hit A for the main senu” 

5825 GET ۷1,۵:7 #2, ۵۷ 

8000 HF=0:NL=0:FH=1:? #2;"}Type 1 for rectanquiar":? #2;" or 2 for polar coordinates for the"s? #2;"function";;INPUT FC 
8001 CS=OrIF FECL OR ۲۸۲۵ OR FCHINT(FC) THEN 8000 

8002 At="the station point ":GOSUB 990:X0=X:Y0=Y:70=2:00SUB 720:G0SUB ۴۱0۰۵098 750 

8022 GOSUB 890017 #2;"“What is the initial x value", INPUT ۲۸۸۲ #2: "What size are the x increments"; ‘INPUT DX 

8024 ? #2:"How many x increments are to be used"; INPUT ۸1۲ NAO OR ۸1۷۲۱ THEN 8024 

8027 ? 2; "What is the initial y value“; INPUT FY:? #2;"What size are the y increments": INPUT DY 

8031 ۲ #2;"How many y increments are to be used"; INPUT NÝ:IF NY<O GR NYSINT(NY) THEN 8031 

8040 7 #2;"Type in the function in the ۱۵۳۵۳۰۲ #2:"z=f(x,y), Since the computer has to" 

8042 ? H2:"read this, please use only capital's? #2;"letters. Use # to multiply and / to“ 

8044 7 H2:"divide. If your computer has THE':? #2:"FAST CHIP use SIN(x)/CO5(x) instead" 

8045? #2;"of TAN(x). PE=3.14199265 but anglas“!? #2;"are seasured in degrees. What is"? #2, "your function“; 
8055 INPUT ASSPORE 599,037 “}'sPOSITION 2,417 0820:۵417 "CONT" POSITION 2,0:POKE 842, ۴ 

8078 POKE 842,12:7 "Fr; sS0SUB 0800:۴062 509, Já: RETURN 

8000 OPEN #3,12,0.PS:I=Ó:TRAP BB0:FOR ROO TO NX:FOR $=90 TO NOI IRAN +R+S+09 X=FX+RHDX: Y=FY+SHDG0SUB 0 
2910 GOSUB 780:NEXT S:NEXT ۸: ۲3۸۴ 400:G0SUB 790:S0SUB 750:RETURN 

8920 IF ۲2۵ THEN A=Z:B=X:C=¥:G0SUB 940 

8830 RETURN 

8850 TRAP 40°F PEEK(195) 11 THEN 400 

8855 TRAP 8890 

B860 و00 :۲/4۱ 0(/4:020عل‎ S820: MiZ: Y= GOSB 3820:00-2:121[+3:00918 8820:0122 

TRAP 018‏ :4 ,(01+02+03+04)د2 FY YK‏ رعزز: ر حول :و382 Y=Y-K-K:GOSUB‏ 8870 

2890 ? #2:"Your function wont work":6070 700 
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8700 IF FC=2 THEN ? #2;"From here on in we will refer to thetaas x, phi as y and the radius as z zafi, 
8715 7 #2;*Type ٩ to just plot points“? #2;" i te connect points with same x" 

8717 ? #2," ۰. 2 to connect points with same yt? #2;" 3 to connect points in a grid"; 

8920 INPUT ۲۲۰1۴ ۲۲۵ OR FT>3 THEN 8915 

8925 RETURN 


APPENDIX ۶ - VARIABLE LIST 


Below is a list of every variable used by ay program. Each variable is listed in the sage order as it appears on the variable table used 
by BASIC to keep track of the variables in the program, The name of each variable is given, followed by its uses in the program, The list 
is as follows! 


HEA: Since this is the first variable in the program, it is used to get 
the é-byte floating point representation used by the disk files. 
Af: This string is used as a multipurpose string variable, 
Bê: This is used to store the string "the start of line", 
C$: This is used to store the string “the end of line ". 
Df: This is used to store the string "point number ۰ 
Pé: This is used to store the string "D:POINTS". 
L$: This is used to store the string ۰, 
Sin): This used to store the values used in 1/0 with the disk files. 
SH: This stores to address of the start of the variable value table. 
Hs This stores the maximus number of points for the progran (2430), 
AL: This stores the maximus nuaber of lines for the progas (1243), 
SP: This stores the starting disk sector of O:POINTS (349). 
SL: This stores the starting disk sector of D:LINES (4), 
A: This stores the often used number 256. 
80: This stores the often used number ۰ 
B3: This stores the often used number 0.5 (1/2), 
Q4: This stores the often used number 100. 
89: This stores the often used number 1. 
CX: This stores the x coordinate for the center of the graphics screen 
(159), 
CY: This stores the y coordinate for the center of the graphics screen 
(95), 
öl: This stores the correction factor for plotting due to the fact that 
graphics pixels are rectangular (0.44706), 
EP: This stores the ending disk sector for D:POINTS (718). 
EL: This stores the ending disk sector for LIES (359), 
PI: This stores the value of the mathematical constant pi (3.14159245), 
Á: This is used as a common numerical variable and as the radius pari 
of a polar (spherical) coordinate. 
í Used as a counting variable, 
; Used as a cosson variable and as a x coordinate for a cartesian point. 
t Used as a common variable and as a y coordinate for a cartesian point, 
: Used as a coason variable and as a z coordinate for a cartesian point. 
; Used as a common variable and as the x,y angle (theta) for a polar 
(spherical) point. 
t Used as a common variable and as the (xy),2z angle (phi) for a polar 
(spherical) point. 
+ Used to stora the x coordinate of the and of a line. 
+ Used to store the y coordinate of the end of a Line. 
: Used to store the z coordinate of the ond of a line, 
it Used as a counting and common variable, 


مس مت ma‏ یب DO‏ ۰ 


ke “AM ca 
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MILATARI NEWSLETTER 


í Used as a counting and common variable, 

* Used to store the x coordinate for the station point. 

+ Used to store the y coordinate for the station point. 

? Used to store the z coordinate for the station point. 

+ Used to store the horizontal direction of viewing. 

* Used to store the vertical direction of viewing. 

Used to store the x coordinate for the point that you ars looking 


towards, 


' sed to store the y coordinate for the point that you are Looking 


towards. 


: Used to store the z coordinata for the point that you are Looking 


towards. 


* Used to store the horizontal angle for the field of view. 

+ Used to store the vertical angle for the field of view. 

+ Used to store the x offset for the station point (see ۰ 

+ Used to store the initial x value for a function. 

+ Used to store the size of x increment for a function. 

* Used to store the number of x increments for a function. 

Used to store the initial y value for a function.‏ ؛ 

+ Used to store the size of y increment for a function. 

* Used to store the number of y increments for a function. 

: Used to store the number of points in the non-functional system. 
' Used to store the number of lines in the non-functional system, 
+ Flag-O-Driginal system, 1=Changed systes 

FN: 
FT: 
Ol: 
St 


Flag-O=Non-function, 1=Fuction 

Used to indicate how to plot a functional system, 

Used to store the previous value of Í. 

The scale for y coordinates determined by TVEPY (see app.0), 
Fiag-O=Look ing in a direction, Í=Looking towards a point 
sad to temporarily store numbers. 

Used to temporarily store numbers. 

Used to temporarily store numbers. 


í Used to temporarily store numbers. 


Used as a common variable, 
Used as a common variable. 
Used as á comson vari able. 
Used as a common variable and a counting variable, 
Used as a common variable and a counting variable. 


+ FLAG-1=Cartesian function, 2=Spherical function 


f; 
۳ 


H: 


li 
32 
Ni 
p: 
H: 
8 
5 
FC 
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STARS 


The short program presented here Was adapted from an 
Appie’TRS-S6 program printed in an article titied "Plotter 
Tutorial Part 3 - Thinking In 3-0" which appeared in the 
February 1984 issue of Creative Computing. Although this program 
does not produce a 3-D figure lit was the first listing in the 
article) 1% does ۱۱۱۷۲۵۵ the technique of recursive use of a 
simple pattern to create very interesting designs. 


Geo Ruiter 


199 DIM AS: 18) 


116 GRAPHICS 24:xXC=159:7C=96:XM=8. ۶:۷۳ ۶ 

128 SETCOLOR 2,2,4:SETCOLOR 4,2,6:SETCOLOR 1,2,6:COLOR 1 
138 FOR N=1 TO 7:READ X,Y 

146 Cx=X:CY=Y:G0SUB 8 


158 NEXT N 
i46 GOTO 168 
170 STOP 


0- و 
FOR C=i TO á‏ 194 
FOR X2=6 TO 58 STEP 5‏ 209 
1=X2‏ : ثم کز- ۵۵ 210 
IF c=2 THEN ¥=-¥‏ 220 
IF C=3 THEN Y=-Y:Xi=-X2‏ 238 
IF C=4 THEN 2 12-2‏ 246 
A= "MOVE" :X=CX;Y=CY+Y:G0SUB 278‏ 258 
Á$=" DRAW" :X=CX+X1:Y=CV:GOSUB 276‏ 260 
NEAT X2‏ 278 
NEXT C:RETURN‏ 238 
V¥P= 192-0 VRYMt YO)‏ و XP=RXXM+XC‏ 290 
34a IF At="MOVYE" THEN X0=XF :Y0=YP:RETURN‏ 
PLOT XO0,7O:DRAWTO XP,YP‏ 318 
XO=AP : ¥0=7P:RETURN‏ 326 


Tid-Bits 
POKE 752,1 turns the cursor off (Betcha EVERYBODY Knew that!) 
PEEK 53770 returns a random integer between Û and 255. 


FOKE 16,255 disabies the Keyboard. (But how do vou get it 
۲۲ لو | تاو ۲ع-ع‎ ) 


POKE 37,1 clears the screen just before the next PRINT 
statement. 


۳2۱ - 2 (51 


AILATAR! Officers: 


President Gary Nolan 333-9714 

Vice President Chris Stieber 529-2663 

Treasurer David Frazer 542-7242 

Secretary open 

Education Linda Scott (Chairperson) 446-2314 
Cons i tze Joe Sanders (SIG Chairman) 447-1440 

Erick Hanson (Instructor) 252-3146 

Cassette Ron Friedel 334-7 
Librarian 

Disk Bill Lawrence 948-3082 
Librarian Carl Aielcarek 355-3537 

Publication Marcus Hagen 1-0710 
Librarian 

ip Dennis J, Bogie 968-7341‏ زا 
Comittee Sharon Gapache 421-2887‏ 

Newsletter David Frazer 542-7242 
Editor 

Bulletin Board Pete Kurth 355-4031 (BBS) 
SYSOP 


۶ ره 
TECHNICAL SUPPORT GROUPS‏ 


The following mesbers have indicated a willingness to assist 
AILATART members with programming and other related technical 
problems. Please be polite and do not call these members during seal 
periods or at very early or very late hours. 


Williaa Lawrence Progranaing 1-768-3082 
Don Wilcox Prograaaing 228-1650 
Erik Hanson Prag/Tech 2502-06 
Steve Booth Progranaing 367-8739 
Nick Liberski Frog/Tach 782-3594 
David Frazer Prog/Tach 042-7242 


FREE 
HILATARI BULLETIN BOARD: 


The Milwaukee Area ATARI Users Group saintains a 24 hour bulletin 
board service. This board is designed for the use of our members and 
other ATARI users around the country. The BBS allows for upload and 
downloading prograws and files, a public message board and club 
news. The board operates at 300 BAUD. The phone number is 
)414( 350-01۰ 


— This newsletter is written and printed by members of the Milwau- 
ee Area ATARI User's Group (AILATARI), an association of in 
dividuals with a common interest in using and programming ATARI 
computers. RILATARI is not affiliated with the ATARI company or any 
other commercial organizations. 


ALL articles are written and donated by the sesbership. Opinions 
expressed in this publication are those of the individual author and 
do not necessarily represent, nor reflect, the opinions of AILATARI 
nor those of any other commercial or non-commercial organizations. 
Any article appearing in this newsletter aay be reproduced, provid 
ing credit is given to the author and ۱۵ 1۰ 


Your contribution of articles are always welcome. You may subwit 
your article on ATARI compatible cassette, diskette, on typewritten 
fora, or you can arrange with the editor to download your file via a 
modes at either 300 or 1200 BAUD. When subsitting your article 
on cassette ۵۳ diskette, please do not include any format control 
codes imbedded within the text. Deadline for articles is the last 
day of each month for inclusion on the next issue, 


Write AILATARI NEWSLETTER, P.O. Box 1191, Waukesha, WI 53187-1191 
for wore information. 


C is open to individuals and families who are interested in 
using and programming ATARI computers. The sembership includes a 
subscription to this newsletter and access to the clubs cassette, 
diskette and publication Libraries, 


There are 3 classes of memberships available. Associate, Individ- 
ual and Family. Associate wesbers can attend all club functions 
and may withdrawal materials from the club libraries. In addition to 
attending club functions and checking out saterials from the 
libraries, Individual and Family seabers are entitled to vote in 
club elections and to hold elected position in the organization. 
The annual membership fees are $10.00 for associate, $15.00 for 
individual, and $20.00 for the family membership. embers are 
expect to abide by the by-laws of the club. You may receive a copy 
of the by-laws by contacting the club secretary. 


For wore information on how to join AILATARI, please contact the 
senbership committee. 


AILATART aeetings are held once monthly. The meetings are currentiy 
being held at the Armbruster School, 7000 Greenway, Greenfield. 
{Off 68th Street, behind Southridge Shopping Center.) The date of 
the meeting is the third Saturday of each month. Doors are open at 
GOPA, An agenda of the next seeting can be found elsewhere in this 

Sletter. For more specific details on the agenda for the next 
scheduled meeting, please contact the Vice President. 


A 
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